home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
nshadow
/
tri-1.bas
< prev
next >
Wrap
BASIC Source File
|
1994-06-23
|
832b
|
27 lines
10 PRINT" ***GIVEN TWO SIDES AND AN OPPOSITE ANGLE IN A TRIANGLE"
15 PRINT" DETERMINE THE THIRD SIDE AND THE OTHER TWO ANGLES."
16 PRINT
20 PRINT "WHAT IS THE LENGTH OF SIDE (S1)?"
30 INPUT "ENTER"; S1
40 PRINT "WHAT IS THE LENGTH OF SIDE (S2)?"
50 INPUT "ENTER"; S2
60 PRINT "WHAT IS THE VALUE OF THE ANGLE (A2)?"
70 INPUT "ENTER"; A2
80 Z=57.2957795#
90 H=(S2/S1)*SIN(A2/Z)
100 A3=Z*(ATN(H/SQR(-H*H+1)))
110 I=-COS((A2+A3)/Z)
120 A1=Z*(-ATN(I/SQR(-I*I+1))+1.5708)
130 S3=(S1^2+S2^2-2*S1*S2*COS(A1/Z))^.5
135 J=.5*(S1*S3*SIN(A3/Z))
140 PRINT
150 PRINT" ***ANSWERS***"
160 PRINT
170 PRINT S1,"SIDE (S1)."
180 PRINT S2,"SIDE (S2)."
190 PRINT S3,"SIDE (S3)."
200 PRINT A1,"ANGLE (A1)."
210 PRINT A2,"ANGLE (A2)."
220 PRINT A3,"ANGLE (A3)."
230 PRINT J, "AREA OF TRIANGLE."